home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / char.men < prev    next >
Internet Message Format  |  1995-03-23  |  2KB
  1. From comp.sys.handhelds Fri Feb  1 07:38:26 1991
  2. Path: mentor.cc.purdue.edu!purdue!ames!rex!samsung!sdd.hp.com!zaphod.mps.ohio-state.edu!magnus.ircc.ohio-state.edu!news
  3. From: fseipel@hpuxa.ircc.ohio-state.edu (Frank E. Seipel)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: Finding that special character
  6. Message-ID: <1991Feb1.003820.17867@magnus.ircc.ohio-state.edu>
  7. Date: 1 Feb 91 00:38:20 GMT
  8. Sender: news@magnus.ircc.ohio-state.edu
  9. Organization: The Ohio State University
  10. Lines: 35
  11.  
  12.  
  13.  Ok, this one is so short I will just key it in by hand:
  14.  
  15. << "" 32 159 FOR k k CHR + NEXT 161 255 FOR k k CHR + NEXT 'ChSet' STO >>
  16.  
  17. Run this once by entering it and pressing the EVAL key. It will create
  18. a string variable, called ChSet, containing most of the 48's internal
  19. characters, including those not easily typed from the keyboard (such as
  20. theta, epsilon, etc). This string can be edited so as to include the
  21. special characters you use most often at the beginning. You may wish to
  22. adjust the limits on the above loops, depending on which characters you use
  23. (see chart, page 694 of HP user manual).
  24.  
  25. << 1 0 -> x k
  26.    << DO ChSet x DUP 20 + SUB 1 DISP 0 WAIT 'k' STO
  27.       'x+(k==36.1)-(k==34.1)-20*(k==25.1)+20*(k==35.1)' EVAL 'x' STO
  28.          IF 'k==51.1' THEN ChSet x x SUB OBJ-> HALT
  29.          END
  30.       UNTIL 0
  31.       END
  32.    >>
  33. >>
  34.  
  35. STO this as whatever you like (I call it 'Pick'). Now, whenever you want
  36. a special character, simply evaluate Pick by entering the menu key from the
  37. VAR menu or entering Pick from the keyboard.
  38.  
  39.  The top line of the display will show 20 characters: Use the up and down
  40. arrows to move through lines of 20 characters, right and left arrow keys
  41. to scroll the line right or left; when see the character you wish, simply
  42. use the arrow keys to move it to the far left of the line and hit ENTER. This
  43. character will then be placed on the stack, in level 1, as a variable object.
  44. This is handy for when you want to name a variable with something descriptive
  45. but don't have the programming manual handy. Boolean logic is used to
  46. eliminate a lot of extra IF..THEN..END statements.
  47.  
  48.